selamlar,elimde her gün düzenli olarak veri girişi yapılacak bir excel tablosu var(Liste sheeti). bu tabloya veri girişi yapıldıkça yan sayfadaki tabloya(Ozet) da bazı değerlerin otomatik olarak girilmesini istiyorum.dosya linki: https://yadi.sk/i/7hNuZ6x7hYqV4ben internetteki bazı kodlar ile bir şe
selamlar,
elimde her gün düzenli olarak veri girişi yapılacak bir excel tablosu var(Liste sheeti). bu tabloya veri girişi yapıldıkça yan sayfadaki tabloya(Ozet) da bazı değerlerin otomatik olarak girilmesini istiyorum.
dosya linki:
yadi.skben internetteki bazı kodlar ile bir şeyler çıkarmaya çalıştım ama yapamadım.
benim yazdığım kod:
Sub aktarma()
Dim alan1, alan2, alan3 As Range
Sheets("Liste").Select
son = WorksheetFunction.CountA(Range("A4:A65000"))
Set alan1 = Application.Range("A2:A" & son)
alan1.Copy Destination:=Sheets("Ozet").Range("A2")
Set alan1 = Nothing
Sheets("Liste").Select
son = WorksheetFunction.CountA(Range("B4:B65000"))
Set alan1 = Application.Range("B4:B" & son)
alan1.Copy Destination:=Sheets("Ozet").Range("B2")
Set alan1 = Nothing
Sheets("Liste").Select
son = WorksheetFunction.CountA(Range("C4:C65000"))
Set alan3 = Application.Range("C4:C" & son)
alan3.Copy Destination:=Sheets("Ozet").Range("C2")
Set alan3 = Nothing
End Sub
bu konuda yardımcı olabilecek birileri, var mıdır?